REM ************************************
REM *                                  *
REM *   V I D E O V E R W A L T U N G  *
REM *                                  *
REM *       (C) copyright 1988 by      *
REM *                                  *
REM *          Michael  Junker         *
REM *                                  *
REM ************************************
CLEAR ,80000
SCREEN 2,640,250,4,2
WINDOW 2,"",,0,2
DIM Ftit$(250),Fummer$(250),Bem$(250)

 Anfang:
   FOR x=0 TO 15
    PALETTE x,0,0,0
   NEXT x 
  COLOR 0,0 : CLS : COLOR 5,6 : i=5 : Nr=1
  LINE (10,10)-(630,60),6,bf
  LINE (20,20)-(620,50),5,b
  CIRCLE ( 55,35),10,4 : CIRCLE (580,35),10,4
  CIRCLE ( 85,35),10,4 : CIRCLE (550,35),10,4
  CIRCLE (115,35),10,4 : CIRCLE (520,35),10,4
  CIRCLE (145,35),10,4 : CIRCLE (490,35),10,4
  CIRCLE (175,35),10,4 : CIRCLE (460,35),10,4
  LOCATE 5,26 : PRINT " V I D E O D A T E I    V1.01 "
  LOCATE 6,28 : PRINT " © Copyright by M. Junker "
 
   Anfang1:
      GOSUB Recorder : COLOR 7,0
      FOR x=0 TO 250 : NEXT x      
      LINE ( 66,137)-(556,157),4,bf
      LINE ( 66,161)-(556,181),4,bf
      LINE ( 66,185)-(556,205),4,bf     
      LINE ( 70,140)-(550,154),5,b
      LINE ( 70,164)-(550,178),5,b
      LINE ( 70,188)-(550,202),5,b
      LINE (222,140)-(222,154),5 
      LINE (368,140)-(368,154),5
      LINE (222,165)-(222,178),5
      LINE (368,165)-(368,178),5      
      LINE (222,202)-(222,188),5
      LINE (368,202)-(368,188),5 
      COLOR 7,4
      LOCATE 19,12 : PRINT "Datei Sortieren"
      LOCATE 19,30 : PRINT "    f r e i    "
      LOCATE 19,51 : PRINT "Etikett drucken"
      LOCATE 22,13 : PRINT "Daten löschen"
      LOCATE 22,32 : PRINT "Daten suchen"
      LOCATE 22,51 : PRINT "Datei Editieren"
      LOCATE 25,16 : PRINT "Eingaben"   
      LOCATE 25,32 : PRINT "Datei zeigen"
      LOCATE 25,52 : PRINT "Datei drucken"
      GOSUB Farbdef 
      ON BREAK GOSUB ente
      BREAK ON

  Maus:
      ON MOUSE GOSUB Start
      COLOR 5,8 : LOCATE 13,23 : PRINT TIME$
      MOUSE ON
      GOTO Maus
  
  Start:   
      Maus=MOUSE(0)
      y=MOUSE(1) : x= MOUSE(2)            
      IF x>141 AND x<154 AND y> 73 AND y<224 THEN Datsort
      IF x>141 AND x<154 AND y>226 AND y<340 THEN Maus
      IF x>141 AND x<154 AND y>371 AND y<553 THEN Etidruck
      IF x>166 AND x<180 AND y> 73 AND y<224 THEN Datlosch
      IF x>166 AND x<180 AND y>371 AND y<552 THEN Dated      
      IF x>166 AND x<180 AND y>226 AND y<371 THEN Datsuch
      IF x>190 AND x<203 AND y> 73 AND y<224 THEN Eingaben
      IF x>190 AND x<203 AND y>227 AND y<372 THEN Zeigen
      IF x>190 AND x<203 AND y>374 AND y<553 THEN Drucken      
      IF x>111 AND x<122 AND y>106 AND y<133 THEN Allesende      
      RETURN
     
  Drucken:
      FOR x=0 TO 15
      PALETTE x,0,0,0
      NEXT x
      COLOR 0,0 : CLS :  COLOR 5,6  : Nr=1
      LINE (110,10)-(500,40),6,bf
      LINE (120,15)-(490,35),5,b
      LOCATE 4,32 :PRINT "Drucker Modus !"
      LINE (100, 50)-(510, 50)  
      LINE (100, 50)-(100,140)
      LINE (510, 50)-(510,140)
      LINE (100,140)-(220,120)
      LINE (220,120)-(510,140)
      LINE (120, 50)-(120,137)
      LINE (490, 50)-(490,139)
      FOR g=55 TO 138 STEP 8 
      CIRCLE (110,g),3
      NEXT g 
      FOR g=55 TO 138 STEP 8 
      CIRCLE (500,g),3
      NEXT g 
      PAINT (140,80),7,5 : PAINT (110,100),7,5 : PAINT (495,80),7,5
      COLOR 5,7
      LOCATE  8,30 : PRINT "V I D E O L I S T E"
      LOCATE 10,34 : PRINT DATE$                           
      LOCATE 12,17 : PRINT "Lfd   |   Filmtitel   | Cassnr. |  Bemerkung"
      LOCATE 13,17 : PRINT "---------------------------------------------"
      LOCATE 14,17 : PRINT " 1     Der Joker         123      gesehen "
      LOCATE 15,17 : PRINT " 2     Schneewitchen     432      Kinderfilm"
      LOCATE 16,17 : PRINT " 3 "
      LOCATE 16,42 : PRINT " 41      Horror"
      COLOR 4,0
  
    Anfang5:
      FOR x=0 TO 250 : NEXT x
      LINE ( 66,205)-(556,185),4,bf
      LINE (215,160)-(375,180),4,bf
      LINE (222,163)-(368,178),5,b
      LINE ( 70,202)-(550,188),5,b
      LINE (222,202)-(222,188),5
      LINE (368,202)-(368,188),5 : COLOR 7,4
      LOCATE 22,34 : PRINT "Zurück !"
      LOCATE 25,12 : PRINT "Draft-Ausdruck"   
      LOCATE 25,32 : PRINT "NLQ-Ausdruck"
      LOCATE 25,49 : PRINT "Tiefschwarzdruck !"
      GOSUB Farbdef: GOSUB Vorhanden 
      IF vorhand=1 THEN
      BEEP
      COLOR 5,0 : LOCATE 20,10 : PRINT  " ... he Baby ! Erst was eingeben und dann Drucken !!!"
      FOR z=0 TO 4000 : NEXT z : COLOR 0,0 : GOTO Anfang
      END IF
      
    Maus1:
      ON MOUSE GOSUB Start1
      COLOR 4,7 : LOCATE 9,35 : PRINT TIME$
      MOUSE ON
      GOTO Maus1

    Start1:
      Maus=MOUSE(0)
      y=MOUSE(1) : x= MOUSE(2)
      IF x>190 AND x<203 AND y> 73 AND y<224 THEN Druck=1 : GOTO Nlq
      IF x>190 AND x<203 AND y>227 AND y<372 THEN Druck=2 : GOTO Nlq
      IF x>190 AND x<203 AND y>374 AND y<553 THEN Tiefschwarzdruck 
      IF x>164 AND x<179 AND y>226 AND y<371 THEN COLOR 0,0 : CLOSE 1 : GOTO Anfang
      GOTO Start1

    Nlq:
      Nr=1 : Blattende=10 : s=1
      OPEN "Video" FOR INPUT AS 1
      OPEN "par:" FOR OUTPUT AS 2
      IF Druck=2 THEN PRINT#2,CHR$(27);"x1" 
      PRINT#2,CHR$(14)"            Videoliste  "
      PRINT#2,"                              Blatt:"s
      PRINT#2,"" : PRINT#2,"                         Stand: "DATE$ : PRINT#2,""      
      PRINT#2,"  Lfd.Nr.|          Filmtitel             | Cassnr.|    Bemerkung   "
      PRINT#2,"---------------------------------------------------------------------"   
    
    Einlesen2:   
      INPUT#1,Ftit$ : INPUT#1,Fummer$ : INPUT#1,Bem$
      Nr$=STR$(Nr)
      a$=" " : x=LEN(Ftit$) : z=30-x
      FOR w=0 TO z : Ftit$=Ftit$+a$ : NEXT w
      a$=" " : x=LEN(Fummer$) : z=3-x
      FOR w=0 TO z : Fummer$=Fummer$+a$ : NEXT w
      a$=" " : x=LEN(Bem$) : z=17-x
      FOR w=0 TO z : Bem$=Bem$+a$ : NEXT w
      a$=" " : x=LEN(Nr$) : z=3-x
      FOR w=0 TO z : Nr$=a$+Nr$ : NEXT w
      PRINT#2," "Nr$"     "Ftit$"  "Fummer$"     "Bem$
      Nr=Nr+1 
      Blattende=Blattende+1 
        IF Blattende>59 THEN 
         s=s+1
         FOR t=0 TO 14 : PRINT#2,"" : NEXT t
         PRINT#2,CHR$(14)"            Videoliste  "
         PRINT#2,"                              Blatt:"s
         PRINT#2,"" : PRINT#2,"                         Stand: "DATE$ : PRINT#2,""      
         PRINT#2,"  Lfd.Nr.|          Filmtitel             | Cassnr.|    Bemerkung   "
         PRINT#2,"---------------------------------------------------------------------"   
         Blattende=10
        END IF 
      IF EOF(1)=0 THEN Einlesen2
      FOR i=0 TO 3 : BEEP : NEXT i
      PRINT#2,CHR$(27);"x0" : CLOSE 1,2 : COLOR 0,0 : GOTO Maus1

    Tiefschwarzdruck:
      Nr=1  : Blattende=10 : s=1
      OPEN "Video" FOR INPUT AS 1
      OPEN "par:" FOR OUTPUT AS 2
      PRINT#2,CHR$(27);"G";
      FOR i=0 TO 3
      PRINT#2,CHR$(14)"            Videoliste  ";
      PRINT#2,CHR$(13);: NEXT i 
      PRINT#2,""
      FOR i=0 TO 3
      PRINT#2,"                              Blatt:"s;
      PRINT#2,CHR$(13);: NEXT i 
      PRINT#2,"" : PRINT#2,"" 
      FOR i=0 TO 3
      PRINT#2,"                         Stand: "DATE$ ;
      PRINT#2,CHR$(13);:NEXT i
      PRINT#2,"":PRINT#2,""
      FOR i=0 TO 3
      PRINT#2,"  Lfd.Nr.|          Filmtitel             | Cassnr.|    Bemerkung   ";
      PRINT#2,CHR$(13);:NEXT i
      PRINT#2,""
      FOR i=0 TO 3 
      PRINT#2,"---------------------------------------------------------------------";   
      PRINT#2,CHR$(13);:NEXT i : PRINT#2,""
          
    Einlesen3:   
      INPUT#1,Ftit$ : INPUT#1,Fummer$ : INPUT#1,Bem$
      Nr$=STR$(Nr)
      a$=" " : x=LEN(Ftit$) : z=30-x
      FOR w=0 TO z : Ftit$=Ftit$+a$ : NEXT w
      a$=" " : x=LEN(Fummer$) : z=3-x
      FOR w=0 TO z : Fummer$=Fummer$+a$ : NEXT w
      a$=" " : x=LEN(Bem$) : z=17-x
      FOR w=0 TO z : Bem$=Bem$+a$ : NEXT w
      a$=" " : x=LEN(Nr$) : z=3-x
      FOR w=0 TO z : Nr$=a$+Nr$ : NEXT w
      FOR i=0 TO 3
      PRINT#2,"   "Nr$"     "Ftit$"  "Fummer$"      "Bem$;
      PRINT#2,CHR$(13);:NEXT i : PRINT#2,""
      Nr=Nr+1
      Blattende=Blattende+1 
        IF Blattende>59 THEN 
          s=s+1
          FOR t=0 TO 14 : PRINT#2,"" : NEXT t
          PRINT#2,CHR$(27);"G";
          FOR i=0 TO 3
          PRINT#2,CHR$(14)"            Videoliste  ";
          PRINT#2,CHR$(13);: NEXT i     
          PRINT#2,""
          FOR i=0 TO 3
          PRINT#2,"                              Blatt:"s;
          PRINT#2,CHR$(13);: NEXT i 
          PRINT#2,"" : PRINT#2,""
          FOR i=0 TO 3
          PRINT#2,"                         Stand: "DATE$ ;
          PRINT#2,CHR$(13);:NEXT i
          PRINT#2,"":PRINT#2,""
          FOR i=0 TO 3
          PRINT#2,"  Lfd.Nr.|          Filmtitel             | Cassnr.|    Bemerkung   ";
          PRINT#2,CHR$(13);:NEXT i
          PRINT#2,""
          FOR i=0 TO 3 
          PRINT#2,"---------------------------------------------------------------------";   
          PRINT#2,CHR$(13);:NEXT i : PRINT#2,""
          Blattende=10
         END IF 
      IF EOF(1)=0 THEN Einlesen3
      FOR i=0 TO 3 : BEEP : NEXT i
      PRINT#2,CHR$(27);"H" : CLOSE 1,2 : COLOR 0,0 : GOTO Maus1

  Eingaben:
      OPEN "Video" FOR APPEND AS 1
      FOR x=0 TO 15
      PALETTE x,0,0,0
      NEXT x 
      COLOR 0,0 : CLS :  COLOR 4,6 
      LINE (110,10)-(510,40),6,bf
      LINE (120,15)-(500,35),5,b
      LINE (110,10)-(510,42),6,bf
      LINE (120,15)-(500,37),5,b 
      LOCATE 4,31 : PRINT "Eingabe Modus !"     
      COLOR 5,4
      LINE ( 66,162)-(556,181),4,bf 
      LINE ( 70,179)-(550,164),5,b
      LINE (222,179)-(222,164),5
      LINE (368,179)-(368,164),5         
   
   Eingabe3:
      COLOR 5,4 : daten=0
      LOCATE 22,13 : PRINT "OK! Speichern"
      LOCATE 22,30 : PRINT "    Eingabe !   "
      LOCATE 22,50 : PRINT "zurück Hauptmenue"
      COLOR 14,0
      LOCATE 12,5 : PRINT " Film Titel       : .............................."
      LOCATE 14,5 : PRINT " Cassetten Nummer : ..."
      LOCATE 16,5 : PRINT " Bemerkung        : ................."     
      COLOR 8,0
      GOSUB Farbdef
   
   Eingabemaus1:
      ON MOUSE GOSUB Eingabestart1
      COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
      MOUSE ON
      GOTO Eingabemaus1
  
   Eingabestart1:   
      Maus=MOUSE(0)
      y=MOUSE(1) : x= MOUSE(2)
      IF x>166 AND x<180 AND y>226 AND y<370 THEN Eingaben1      
      IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
      RETURN
   
    Eingaben1:
     COLOR 7,0
     LOCATE 12,24 : PRINT " .............................."
     LOCATE 14,24 : PRINT " ..."
     LOCATE 16,24 : PRINT " ................."
     LOCATE 12,25 : LINE INPUT "",Ftit$
     IF Ftit$="�" THEN Ausgabe
     LOCATE 14,25 : LINE INPUT "",Fummer$
     LOCATE 16,25 : LINE INPUT "",Bem$
     daten=1 : COLOR 5,4
     LOCATE 22,30 : PRINT "falsche Eingabe!"
     COLOR 14,0
      
   Eingabemaus:
     ON MOUSE GOSUB Eingabestart
     MOUSE ON
     GOTO Eingabemaus
  
   Eingabestart:   
     Maus=MOUSE(0)
     y=MOUSE(1) : x= MOUSE(2)
     IF x>165 AND x<180 AND y> 73 AND y<224 THEN Speichern
     IF x>166 AND x<180 AND y>226 AND y<370 THEN Eingaben1      
     IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
     RETURN

   Speichern:
     IF daten=0 THEN Eingabe3
     PRINT#1,Ftit$
     PRINT#1,Fummer$
     PRINT#1,Bem$                                          
     GOTO Eingabe3
   
  Zeigen:
     FOR x=0 TO 15
     PALETTE x,0,0,0
     NEXT x    
     COLOR 0,0 : CLS :  COLOR 5,6 : Nr=1
     LINE (110,10)-(510,37),6,bf
     LINE (120,15)-(500,32),5,b
     COLOR 4,6
     LOCATE 4,33 :PRINT "DATEI ZEIGEN !"                                                
     LOCATE 6,3 : COLOR 9,6 : PRINT" Lfd.Nr     Filmtitel                        Cass.Nr    Bemerkung          "
     GOSUB Linien : GOSUB Sauber1 : y=8 : GOSUB Farbdef
     GOSUB Vorhanden 
     IF vorhand=1 THEN
     BEEP
     COLOR 5,7 : LOCATE 20,10 : PRINT  " ... he Baby ! Erst was eingeben und zeigen lassen !!!"
     FOR z=0 TO 4000 : NEXT z : COLOR 0,0 : GOTO Anfang
     END IF
     OPEN "Video" FOR INPUT AS 1
  
  Zeig1:
     COLOR 5,7
     INPUT#1,Ftit$ : INPUT#1,Fummer$ : INPUT#1,Bem$
     Nr$=STR$(Nr)
     a$=" " : x=LEN(Ftit$) : z=30-x
     FOR w=0 TO z : Ftit$=Ftit$+a$ : NEXT w
     a$=" " : x=LEN(Fummer$) : z=3-x
     FOR w=0 TO z : Fummer$=Fummer$+a$ : NEXT w
     a$=" " : x=LEN(Bem$) : z=17-x
     FOR w=0 TO z : Bem$=Bem$+a$ : NEXT w
     a$=" " : x=LEN(Nr$) : z=3-x
     FOR w=0 TO z : Nr$=a$+Nr$ : NEXT w
     LOCATE y,3 : PRINT"  "Nr$"      "Ftit$"  "Fummer$"       "Bem$
     Nr=Nr+1 : y=y+2 
     IF y>27 THEN GOSUB Warte : y=8 
     IF EOF(1)=0 THEN Zeig1
     COLOR 4,7 : LOCATE y,17 : PRINT "ENDE DER DATEI - PRESS SPACE TO CONTINUE ! " : COLOR 5,7
     GOSUB Warte1 : CLOSE 1 : GOTO Anfang 
         
   Warte:
     COLOR 4,7 
     LOCATE y,15 : PRINT "Space um weiter einzulesen linke Maus zum beenden !!!" :GOSUB Warte1
     GOSUB Sauber1 : COLOR 5,6 : RETURN
   
  Warte1:
     ON MOUSE GOSUB Beenden
     MOUSE ON
     IF INKEY$="" THEN Warte1
     RETURN        
   Beenden:
     CLOSE 1: GOTO Anfang
     RETURN
       
  Sauber1:
    y=8 : COLOR 8,7
    FOR i=0 TO 10
    LOCATE y,3 : PRINT SPACE$(75)               
    y=y+2 : NEXT i
    RETURN
  
  Linien:
    p=16 : q=39 : r=617 : s=48 :i=10
    FOR f=0 TO 3
    LINE (p,q)-(r,s),4,b
    p=p-2 : q=q-1 : r=r+2 : s=s+1 : i=i+0.1
    NEXT f
    LINE (13, 54)-(620, 65),4,bf
    LINE (13, 70)-(620, 81),4,bf
    LINE (13, 86)-(620, 97),4,bf
    LINE (13,102)-(620,113),4,bf
    LINE (13,118)-(620,129),4,bf
    LINE (13,134)-(620,145),4,bf
    LINE (13,150)-(620,161),4,bf
    LINE (13,166)-(620,177),4,bf
    LINE (13,182)-(620,193),4,bf
    LINE (13,198)-(620,209),4,bf
    LINE (13,214)-(620,225),4,bf
    RETURN
   
  Recorder:
    LINE ( 95, 85)-(530,125),14,bf  
    COLOR 9,14
    LOCATE 12,41 : PRINT " 1  2  3  4  5  6  7  8 "
    LOCATE 15,20 : PRINT "VHS-HIFI-VIDEO"
    LINE (101,110)-(130,120),4,bf : COLOR 5,4
    LINE (101,110)-(131,120),5,b
    LOCATE 15,14 : PRINT "OFF"
    COLOR 5,14
    LOCATE 15,41 : PRINT " PLAY REW FFW STOP PAUSE"
    CIRCLE (331,100),6 
    LINE (110, 90)-(300,105),8,bf : CIRCLE (355,100),6
    LINE (112, 91)-(298,104),9,b
    LINE (138,110)-(274,120),5,b  : CIRCLE (379,100),6    
    LINE (325,110)-(362,120),5,b  : CIRCLE (403,100),6     
    LINE (367,110)-(393,120),5,b  : CIRCLE (427,100),6
    LINE (397,110)-(426,120),5,b  : CIRCLE (451,100),6
    LINE (430,110)-(465,120),5,b  : CIRCLE (476,100),6
    LINE (470,110)-(515,120),5,b  : CIRCLE (500,100),6
    RETURN

  Farbdef:      
    PALETTE  0,0,0,1
    PALETTE  1,0,0,1
    PALETTE  2,0,0,1
    PALETTE  3,0,0,1
    PALETTE  4,1,0,0
    PALETTE  5,0,0,0
    PALETTE  6,0.1,0.8,0.8
    PALETTE  7,1,1,1
    PALETTE  8,0.8,0.8,0.8
    PALETTE  9,0,0,0.6
    PALETTE 10,0,0,0
    PALETTE 11,0,0,0
    PALETTE 12,0,0,0
    PALETTE 13,0,0,0
    PALETTE 14,0.5,0.5,0.5
    PALETTE 15,RND,RND,RND
    RETURN
       
  Dated:
    losch1=1 : daten=0
    FOR x=0 TO 15
    PALETTE x,0,0,0
    NEXT x
    COLOR 0,0 : CLS
    LINE (110,10)-(510,37),6,bf
    LINE (120,15)-(500,32),5,b
    COLOR 4,6
    LINE (110,10)-(510,40),6,bf
    LINE (120,15)-(500,35),5,b
    LINE (110,10)-(510,42),6,bf
    LINE (120,15)-(500,37),5,b
    LOCATE 4,32 :PRINT "DATEN EDITIEREN!"
    COLOR 5,4
    LINE ( 66,162)-(556,181),4,bf 
    LINE ( 70,179)-(550,164),5,b
    LINE (222,179)-(222,164),5
    LINE (368,179)-(368,164),5         
    LOCATE 22,13 : PRINT "OK! Speichern"  
    LOCATE 22,30 : PRINT "  Editieren !   "
    LOCATE 22,50 : PRINT "zurück Hauptmenue"                          
    
  Ein3:
    COLOR 5,0
    LINE (188,134)-(452,145),6,b
    LINE (188,100)-(452,130),7,bf
    LINE (187, 99)-(453,131),5,b
    LOCATE 18,13 : PRINT " Editor :"
    LOCATE 14,10 : PRINT "Filmtitel   :"
    LOCATE 15,10 : PRINT "Cassetten Nr:"
    LOCATE 16,10 : PRINT "Bemerkung   :"
    GOSUB Farbdef

  Ein4:
    GOSUB Vorhanden 
    IF vorhand=1 THEN 
    BEEP : COLOR 5,0 : LOCATE 10,25 : PRINT " ... keine Daten vorhanden  ...!!!             "
    FOR z=0 TO 4000 : NEXT z : GOTO Anfang 
    END IF
    GOSUB Einlesenneu 
  
  Datedmaus:
    ON MOUSE GOSUB Datedstart
    COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
    MOUSE ON
    GOTO Datedmaus
  
  Datedstart:   
    Maus=MOUSE(0)
    y=MOUSE(1) : x= MOUSE(2)
    IF x>165 AND x<180 AND y> 73 AND y<224 THEN Datedspeichern
    IF x>166 AND x<180 AND y>226 AND y<370 THEN Editieren      
    IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
    RETURN
  
  Datedmaus1:
    ON MOUSE GOSUB Datedstart1
    COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
    MOUSE ON
    GOTO Datedmaus1
  
  Datedstart1:   
    Maus=MOUSE(0)
    y=MOUSE(1) : x= MOUSE(2)
    IF x>165 AND x<180 AND y> 73 AND y<224 THEN Datedspeichern
    IF x>166 AND x<180 AND y>226 AND y<370 THEN Schreibneu      
    IF x>166 AND x<180 AND y>371 AND y<552 THEN Anfang
    RETURN
  
  Schreibneu: 
    COLOR 5,4
    LOCATE 22,30 : PRINT "  Editieren !  "
    COLOR 3,7
    LOCATE 14,25 : PRINT SPACE$(28)
    LOCATE 15,25 : PRINT SPACE$(28)
    LOCATE 16,25 : PRINT SPACE$(28)
    COLOR 0,0
    LOCATE  8,17 : PRINT SPACE$(50)
    LOCATE 10,16 : PRINT SPACE$(50)
    GOTO Datedmaus
  
  Editieren:
    COLOR 5,4
    LOCATE 22,30 : PRINT "  Editieren !  "
    COLOR 5,0
    LOCATE  8,17 : PRINT " Es befinden sich"losch1"Datensätze im Speicher !"
    LOCATE 10,16 : INPUT "  Welcher Datensatz soll Editiert werden(Nr.) :",losch
    IF losch<1 OR losch>losch1 THEN BEEP : GOTO Editieren2 
    GOTO Editieren3
     
  Editieren2:   
     LOCATE 10,13 : PRINT" ... Datensatz mit dieser Nummer existiert nicht !   "
     FOR v=0 TO 2500 : NEXT v                                
     LOCATE 10,13 : PRINT SPACE$(57)                       
     GOTO Editieren
  
  Editieren3:                              
     COLOR 5,4
     LOCATE 22,30 : PRINT "    zurück !    "
     COLOR 5,7 
     LOCATE 14,25 : z=LEN(Ftit$(losch)) : PRINT Ftit$(losch)+SPACE$(32-z)
     LOCATE 15,25 : PRINT Fummer$(losch)+SPACE$(26)
     LOCATE 16,25 : PRINT Bem$(losch)+SPACE$(15)
     COLOR 5,0
     LOCATE 18,12 : COLOR 4,0 : PRINT  "Filmtitel :" : COLOR 5,0      
     LOCATE 18,25 : INPUT "",a$ : IF a$<>"" THEN Ftit$(losch)=a$   : a$=""
     LOCATE 18,25 : PRINT SPACE$(32)  : COLOR 5,7
     LOCATE 14,25 : PRINT Ftit$(losch)+SPACE$(32-LEN(Ftit$(losch))): COLOR 5,0
     LOCATE 18,12 : COLOR 4,0 : PRINT  "Cass.Nr.  :" : COLOR 5,0
     LOCATE 18,25 : INPUT "",b$ : IF b$<>"" THEN Fummer$(losch)=b$ : b$=""
     LOCATE 18,25 : PRINT SPACE$(32)  : COLOR 5,7
     LOCATE 15,25 : PRINT Fummer$(losch)+SPACE$(32-LEN(Fummer$(losch))) : COLOR 5,0
     LOCATE 18,12 : COLOR 4,0 : PRINT  "Bemerkung :" : COLOR 5,0 
     LOCATE 18,25 : INPUT "",c$ : IF c$<>"" THEN Bem$(losch)=c$    : c$=""
     LOCATE 18,25 : PRINT SPACE$(32)  : COLOR 5,7
     LOCATE 16,25 : PRINT Bem$(losch)+SPACE$(32-LEN(Bem$(losch))) : COLOR 5,0
     COLOR 5,0 : daten=1 : LOCATE 18,12 : PRINT "Editor    :" : GOTO Datedmaus1
                                                 
  Datedspeichern:
     IF daten=0 THEN Datedmaus  
     KILL "Video"
     OPEN "Video" FOR APPEND AS 1
     neu2=1
     
  Fertig2:   
     IF neu2>losch1 THEN 
      COLOR 5,4
      LOCATE 22,30 : PRINT "  Editieren !  "
      COLOR 3,7
      LOCATE 14,25 : PRINT SPACE$(28)
      LOCATE 15,25 : PRINT SPACE$(28)
      LOCATE 16,25 : PRINT SPACE$(28)
      COLOR 0,0
      LOCATE  8,17 : PRINT SPACE$(50)
      LOCATE 10,16 : PRINT SPACE$(50)
      GOTO Datedmaus
     END IF
     PRINT#1,Ftit$(neu2)
     PRINT#1,Fummer$(neu2)
     PRINT#1,Bem$(neu2)
     neu2=neu2+1 : GOTO Fertig2
     RETURN
     
  Datlosch:
     losch1=1 
     FOR x=0 TO 15
     PALETTE x,0,0,0
     NEXT x
     COLOR 0,0 : CLS
     LINE (110,10)-(510,42),6,bf
     LINE (120,15)-(500,37),5,b
     COLOR 5,4
     LINE ( 66,162)-(556,181),4,bf 
     LINE ( 70,179)-(550,164),5,b
     LINE (222,179)-(222,164),5
     LINE (368,179)-(368,164),5 
     LOCATE 22,13 : PRINT "   Löschen "
     LOCATE 22,31 : PRINT "Nummer eingeben"
     LOCATE 22,50 : PRINT "zurück Hauptmenue"
     
     COLOR 4,6
     LOCATE 4,33 :PRINT "DATEN LÖSCHEN!"
     COLOR 5,7
     LINE (100,95)-(540,135),5,bf
     COLOR 7,5
     LOCATE 14,16 : PRINT "Filmtitel   :"
     LOCATE 15,16 : PRINT "Cassetten Nr:"
     LOCATE 16,16 : PRINT "Bemerkung   :"
     COLOR 5,7 
     LOCATE 14,30 : PRINT SPACE$(34)
     LOCATE 15,30 : PRINT SPACE$(34)
     LOCATE 16,30 : PRINT SPACE$(34) 
     COLOR 5,0   
     GOSUB Farbdef
        
   Ein1:
     GOSUB Vorhanden 
     IF vorhand=1 THEN 
     BEEP : COLOR 5,0 : LOCATE 10,25 : PRINT " ... keine Daten vorhanden  ...!!!             "
     FOR z=0 TO 4000 : NEXT z : GOTO Anfang 
     END IF
     GOSUB Einlesenneu
     
   Datloschmaus:    
      ON MOUSE GOSUB Datloschstart
      COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
      MOUSE ON
      GOTO Datloschmaus
  
   Datloschstart:   
      Maus=MOUSE(0)
      y=MOUSE(1) : x= MOUSE(2)
      IF x>165 AND x<180 AND y> 73 AND y<224 THEN Datloschstart
      IF x>166 AND x<180 AND y>226 AND y<370 THEN Nummereingeben     
      IF x>166 AND x<180 AND y>371 AND y<552 THEN COLOR 0,0 : CLOSE 1 : GOTO Anfang
      RETURN
 
  Datloschmaus1:
      ON MOUSE GOSUB Datloschstart1
      COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
      MOUSE ON
      GOTO Datloschmaus1
  
   Datloschstart1:   
      Maus=MOUSE(0)
      y=MOUSE(1) : x= MOUSE(2)
      IF x>166 AND x<180 AND y>226 AND y<370 THEN LOCATE 22,30 : COLOR 5,4 :PRINT "Nummer eingeben!" : GOTO Datloschmaus     
      IF x>165 AND x<180 AND y> 73 AND y<224 THEN Loschen
      RETURN
        
  Nummereingeben:
      COLOR 7,0 
      LOCATE  8,17 : PRINT " Es befinden sich"losch1" Datensätze im Speicher !"
      LOCATE 10,16 : INPUT "Welcher Datensatz soll gelöscht werden(Nr.):",losch$         
      losch=VAL(losch$) : IF losch<1 OR losch >losch1 THEN BEEP : GOTO Noexist
      COLOR 5,4 : LOCATE 22,30 : PRINT "   vergiss es ! " : COLOR 5,7   
      LOCATE 14,30 :z=LEN(Ftit$(losch)) : PRINT Ftit$(losch)+SPACE$(32-z)
      LOCATE 15,30 : PRINT Fummer$(losch)+SPACE$(29)
      LOCATE 16,30 : PRINT Bem$(losch)+SPACE$(15)
      COLOR 0,0
      LOCATE  8,17 : PRINT SPACE$(50)
      LOCATE 10,16 : PRINT SPACE$(50)
      daten=1
      GOTO Datloschmaus1
  Noexist:   
     LOCATE 10,13 : PRINT" ... Datensatz mit dieser Nummer existiert nicht !   "
     FOR v=0 TO 2500 : NEXT v                                
     LOCATE 10,13 : PRINT SPACE$(57)                       
     GOTO Nummereingeben
     
   Loschen:  
     REM IF daten=0 THEN GOTO Datloschmaus
     KILL "Video"
     OPEN "Video" FOR APPEND AS 1
     neu2=1
     
  Fertig1:
    IF neu2=losch THEN neu2=neu2+1 
     IF neu2>losch1 THEN 
       CLOSE 1 
       COLOR 5,7 
       LOCATE 14,30 : PRINT SPACE$(34)
       LOCATE 15,30 : PRINT SPACE$(34)
       LOCATE 16,30 : PRINT SPACE$(34) 
       COLOR 5,0   
       COLOR 5,4 : LOCATE 22,31 : PRINT "Nummer eingeben" : COLOR 5,0  
       daten=0 : losch1=losch1-1 : GOTO Datloschmaus
       END IF
      PRINT#1,Ftit$(neu2)
      PRINT#1,Fummer$(neu2)
      PRINT#1,Bem$(neu2)
    neu2=neu2+1 : GOTO Fertig1
   
   Vorhanden:
     OPEN "Video" FOR APPEND AS 1
     IF LOF(1)=0 THEN vorhand=1 :ELSE vorhand=0
     CLOSE 1 : RETURN
  
  Einlesenneu:   
     OPEN "Video" FOR INPUT AS 1
     losch1=0
           
  Ein2:  
     losch1=losch1+1 
     INPUT#1,Ftit$(losch1) : INPUT#1,Fummer$(losch1) : INPUT#1,Bem$(losch1)
     IF EOF(1)=0 THEN Ein2
     CLOSE 1 : RETURN
  
  Datsuch:
     losch1=1 : daten=0
     FOR x=0 TO 15
     PALETTE x,0,0,0
     NEXT x
     COLOR 0,0 : CLS
     LINE (110,10)-(510,42),6,bf
     LINE (120,15)-(500,37),5,b
     COLOR 5,4
     LINE ( 66,162)-(556,181),4,bf 
     LINE ( 70,179)-(550,164),5,b
     LINE (222,179)-(222,164),5
     LINE (368,179)-(368,164),5 
     LOCATE 22,13 : PRINT "    Suchen   "
     LOCATE 22,31 : PRINT "             "
     LOCATE 22,50 : PRINT "zurück Hauptmenue"
     
     COLOR 4,6
     LOCATE 4,33 :PRINT " DATEN SUCHEN!"
     COLOR 5,7
     LINE (100,95)-(540,135),5,bf
     COLOR 7,5
     LOCATE 14,16 : PRINT "Filmtitel   :"
     LOCATE 15,16 : PRINT "Cassetten Nr:"
     LOCATE 16,16 : PRINT "Bemerkung   :"
     COLOR 5,7 
     LOCATE 14,30 : PRINT SPACE$(34)
     LOCATE 15,30 : PRINT SPACE$(34)
     LOCATE 16,30 : PRINT SPACE$(34) 
     COLOR 5,0   
     GOSUB Farbdef
      IF vorhand=1 THEN
      BEEP
      COLOR 5,0 : LOCATE 20,15 : PRINT  " ... he Baby ! Erst was eingeben dann suchen !!"
      FOR z=0 TO 4000 : NEXT z : COLOR 0,0 : GOTO Anfang
      END IF     
      GOSUB Einlesenneu 
   
   Datsuchmaus:
     ON MOUSE GOSUB Datsuchstart
     COLOR 5,4 : LOCATE 22,34 : PRINT TIME$
     MOUSE ON
     GOTO Datsuchmaus
  
  Datsuchstart:   
    Maus=MOUSE(0)
    y=MOUSE(1) : x= MOUSE(2)
    IF x>165 AND x<180 AND y> 73 AND y<224 THEN Suchroutine
    IF x>166 AND x<180 AND y>226 AND y<370 THEN Datsuchmaus      
    IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
    RETURN
  
  Suchroutine:  
    COLOR 5,0
    LOCATE 10,18 : INPUT "  Welcher Filmtitel wird gesucht :",a$
    such=0 : xy=0
  
  Suchroutine1:
      FOR x=1 TO losch1
      such=such+1
      y=INSTR(Ftit$(such),a$)
      IF y<>0 THEN GOSUB Schreib 
      NEXT x
      IF xy=0 THEN LOCATE 10,14 : PRINT "           ... keine passenden Datensätze !!!            "
      IF xy>0 THEN LOCATE 10,14 : PRINT "           ... nichts passendes mehr da !!!              "
      FOR t=0 TO 2500 : NEXT t : LOCATE 10,20 : PRINT  SPACE$(40)
      LOCATE 19,30 : PRINT  SPACE$(18)
      GOTO Datsuchmaus
     
  Schreib:
     COLOR 5,0
     xy=xy+1
     LOCATE 19,30 : PRINT "Datensatznr.:"such
     COLOR 5,7
     LOCATE 14,30 : PRINT  Ftit$(x)
     LOCATE 15,30 : PRINT Fummer$(x)
     LOCATE 16,30 : PRINT Bem$(x)
     COLOR 5,0
     LOCATE 10,14 : PRINT  "Space zum weitersuchen, linke Maustaste zum beenden !!!                "
     GOSUB Warte2 : GOTO Weiter :
     
   Warte2:
     ON MOUSE GOSUB Suchfertig
     MOUSE ON
     IF INKEY$="" THEN Warte2
     RETURN        
   Suchfertig:
     LOCATE 10,14 : PRINT SPACE$(55)
     COLOR 5,7
     LOCATE 14,30 : PRINT  SPACE$(30)
     LOCATE 15,30 : PRINT  SPACE$(30)
     LOCATE 16,30 : PRINT  SPACE$(30)
     COLOR 5,0     
     LOCATE 19,30 : PRINT SPACE$(35)
     GOTO Datsuchmaus
     RETURN

   Weiter:
     COLOR 5,7
     LOCATE 14,30 : PRINT  SPACE$(30)
     LOCATE 15,30 : PRINT  SPACE$(30)
     LOCATE 16,30 : PRINT  SPACE$(30)
     COLOR 5,0
     RETURN
  
   Allesende:
     LINE (180,158)-(426,135),4,bf
     LINE (180,158)-(426,135),5,b
     COLOR 5,4
     LOCATE 19,25 : PRINT "  JA    AUFHÖHREN    NEIN "
     LINE (192,155)-(240,140),5,b  : LINE (348,155)-(406,140),5,b
 
 Endemaus:
    ON MOUSE GOSUB Endestart
    MOUSE ON
    GOTO Endemaus
  
  Endestart:   
    Maus=MOUSE(0)
    y=MOUSE(1) : x= MOUSE(2)
    IF x>141 AND x<156 AND y>195 AND y<242 THEN SYSTEM : REM `Ja`     
    IF x>141 AND x<156 AND y>351 AND y<401 THEN Zuruck : REM `Nein`
    RETURN
   Zuruck:       
    LINE (180,158)-(426,135),0,bf   
    LINE ( 66,137)-(556,157),4,bf
    LINE ( 70,140)-(550,154),5,b
    LINE (222,140)-(222,154),5 
    LINE (368,140)-(368,154),5
    COLOR 7,4
    LOCATE 19,12 : PRINT "Datei Sortieren"
    LOCATE 19,30 : PRINT "    f r e i    "
    LOCATE 19,51 : PRINT "Etikett drucken"
    GOTO Maus

 Datsort:
      FOR x=0 TO 15
      PALETTE x,0,0,0
      NEXT x 
      COLOR 0,0 : CLS :  COLOR 4,6 
      LINE (110,10)-(510,40),6,bf
      LINE (120,15)-(500,35),5,b
      LINE (110,10)-(510,42),6,bf
      LINE (120,15)-(500,37),5,b 
      LOCATE 4,30 : PRINT "  S O R T I E R E N "     
      COLOR 5,4
      LINE ( 66,162)-(556,181),4,bf 
      LINE ( 70,179)-(550,164),5,b
      LINE (222,179)-(222,164),5
      LINE (368,179)-(368,164),5         
      LINE ( 70,120)-(560,142),5,bf
      LINE ( 70,120)-(560,142),7,b
      COLOR 7,5 : LOCATE 17,15 : PRINT "INFO-FENSTER : "
      COLOR 4,5 : LOCATE 17,30 : PRINT " Das Sortieren kann länger dauern !"
      COLOR 5,4 : daten=0
      LOCATE 22,13 : PRINT "Alphabetisch"
      LOCATE 22,33 : PRINT "Nummerisch"
      LOCATE 22,50 : PRINT "zurück Hauptmenue"
      GOSUB Durcheinander : GOSUB Farbdef : GOSUB Vorhanden  
      IF vorhand=1 THEN 
      BEEP : COLOR 4,5 : LOCATE 17,30 : PRINT "     ... keine Daten vorhanden  !!!    "
      FOR z=0 TO 4000 : NEXT z : GOTO Anfang 
      END IF
      GOSUB Einlesenneu 

  Sortmaus:
     ON MOUSE GOSUB Sortstart
     COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
     MOUSE ON
     GOTO Sortmaus
  
  Sortstart:   
     Maus=MOUSE(0)
     y=MOUSE(1) : x= MOUSE(2)
     IF x>165 AND x<180 AND y> 73 AND y<224 THEN Alphabetisch
     IF x>166 AND x<180 AND y>226 AND y<370 THEN Nummerisch     
     IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
     RETURN

  Alphabetisch:
     OPEN "video" FOR INPUT AS 1
     x=0 : COLOR 4,5
   Alpha:
     INPUT#1,Ftit$(x)
     INPUT#1,Fummer$(x)
     INPUT#1,Bem$(x)
     x=x+1
     LOCATE 17,31 : PRINT " ...lese Datensatz Nr."x"             "
     IF EOF(1)=0 THEN Alpha  
     CLOSE 1
     losch1=x-1 : x=0
     FOR sort1=0 TO losch1
     FOR sort2=sort1+1 TO losch1
      IF UCASE$(Ftit$(sort1))>UCASE$(Ftit$(sort2)) THEN
       SWAP Ftit$(sort1),Ftit$(sort2)
        SWAP Fummer$(sort1),Fummer$(sort2)
       SWAP Bem$(sort1),Bem$(sort2)
      END IF
    LOCATE 17,31 : PRINT " ...sortiere Datensatz Nr."sort2"      "
    NEXT sort2
    NEXT sort1
    OPEN "video" FOR OUTPUT AS 1
    x=0
  Alpha1:
    PRINT#1,Ftit$(x)
    PRINT#1,Fummer$(x)
    PRINT#1,Bem$(x)
    x=x+1
    LOCATE 17,31 : PRINT "Schreibe Datensatz Nr."x" zurück !     "
    IF x<losch1+1 THEN Alpha1
    CLOSE 1
    LOCATE 17,31 : PRINT "  SORTIEREN NACH ALPHABET BEENDET !  "
    GOTO Sortmaus     

  Nummerisch:
     OPEN "video" FOR INPUT AS 1
     x=0 : COLOR 4,5
   Numm:
     INPUT#1,Ftit$(x)
     INPUT#1,Fummer$(x)
     INPUT#1,Bem$(x)
     x=x+1
     LOCATE 17,31 : PRINT " ...lese Datensatz Nr."x"          "
     IF EOF(1)=0 THEN Numm  
     CLOSE 1
     losch1=x-1 : x=0
     FOR sort1=0 TO losch1
     FOR sort2=sort1+1 TO losch1
      IF UCASE$(Fummer$(sort1))>UCASE$(Fummer$(sort2)) THEN
       SWAP Ftit$(sort1),Ftit$(sort2)
        SWAP Fummer$(sort1),Fummer$(sort2)
       SWAP Bem$(sort1),Bem$(sort2)
      END IF
    LOCATE 17,31 : PRINT " ...sortiere Datensatz Nr."sort2"      "
    NEXT sort2
    NEXT sort1
    OPEN "video" FOR OUTPUT AS 1
    x=0
  Numm1:
    PRINT#1,Ftit$(x)
    PRINT#1,Fummer$(x)
    PRINT#1,Bem$(x)
    x=x+1
    LOCATE 17,31 : PRINT "Schreibe Datensatz Nr."x" zurück !    "
    IF x<losch1+1 THEN Numm1
    CLOSE 1
    LOCATE 17,31 : PRINT "SORTIEREN NACH CASSETTEN NR. BEENDET !"
    GOTO Sortmaus     

 Etidruck:
      FOR x=0 TO 15
      PALETTE x,0,0,0
      NEXT x 
      COLOR 0,0 : CLS :  COLOR 4,6 
      LINE (110,10)-(510,42),6,bf
      LINE (120,15)-(500,37),5,b 
      LOCATE 4,28 : PRINT "  Etiketten Druck "     
      
      LINE (125,57)-(205,77),10,bf : REM E 120
      LINE (125,57)-(205,77), 7,b
      LINE (268,57)-(348,77),11,bf : REM E 180
      LINE (268,57)-(348,77),7,b
      LINE (411,57)-(491,77),12,bf : REM E 240
      LINE (411,57)-(491,77),7,b
      COLOR 7,10
      LOCATE 9,18 : PRINT " E 120 "
      COLOR 7,11
      LOCATE 9,36 : PRINT " E 180 "
      COLOR 7,12
      LOCATE 9,54 : PRINT " E 240 "
      
      LINE ( 66,162)-(556,181),4,bf 
      LINE ( 70,179)-(550,164),5,b
      LINE (222,179)-(222,164),5
      LINE (368,179)-(368,164),5         
      LINE ( 70, 85)-(560,130),7,bf
      LINE ( 70, 85)-(560,130),5,b
      COLOR 5,7
      LOCATE 13,14 : PRINT "  Filmtitel     : ................................"
      LOCATE 15,14 : PRINT "  Cassetten Nr. : ... "
      COLOR 5,4 
      LOCATE 22,12 : PRINT "Etikett Drucken"
      LOCATE 22,31 : PRINT "Nummer eingeben"
      LOCATE 22,50 : PRINT "zurück Hauptmenue"
      GOSUB Farbdef : GOSUB Vorhanden  
      IF vorhand=1 THEN 
      BEEP : COLOR 4,5 : LOCATE 17,30 : PRINT "     ... keine Daten vorhanden  !!!    "
      FOR z=0 TO 4000 : NEXT z : GOTO Anfang 
      END IF
      GOSUB Einlesenneu 

  Etimaus:
     ON MOUSE GOSUB Etistart
     COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
     MOUSE ON
     GOTO Etimaus
  
  Etistart:   
     Maus=MOUSE(0)
     y=MOUSE(1) : x= MOUSE(2)
     IF x>165 AND x<180 AND y> 73 AND y<224 THEN Etimaus
     IF x>166 AND x<180 AND y>226 AND y<370 THEN Nummerein     
     IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
     IF x> 59 AND x< 78 AND y>129 AND y<205 THEN E120
     IF x> 59 AND x< 78 AND y>273 AND y<348 THEN E180
     IF x> 59 AND x< 78 AND y>415 AND y<492 THEN E240
     RETURN
  
  Etimaus1:
     ON MOUSE GOSUB Etistart1
     COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
     MOUSE ON
     GOTO Etimaus1
  
  Etistart1:   
     Maus=MOUSE(0)
     y=MOUSE(1) : x= MOUSE(2)
     IF x>165 AND x<180 AND y> 73 AND y<224 THEN Etikett
     IF x>166 AND x<180 AND y>226 AND y<370 THEN Falsch     
     IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
     IF x> 59 AND x< 78 AND y>129 AND y<205 THEN E120
     IF x> 59 AND x< 78 AND y>273 AND y<348 THEN E180
     IF x> 59 AND x< 78 AND y>415 AND y<492 THEN E240   
     RETURN

  E120:
     PALETTE 10,1,0,0
     PALETTE 11,0,0,0
     PALETTE 12,0,0,0
     COLOR 5,7
     LOCATE 14,58 : PRINT " E 120 "
     wert=1 : IF eingegeben=0 THEN Etimaus :ELSE Etimaus1
  E180:
     PALETTE 10,0,0,0
     PALETTE 11,1,0,0
     PALETTE 12,0,0,0  
     COLOR 5,7
     LOCATE 14,58 : PRINT " E 180 "
     wert=2 : IF eingegeben=0 THEN Etimaus :ELSE Etimaus1
  E240:
     PALETTE 10,0,0,0
     PALETTE 11,0,0,0
     PALETTE 12,1,0,0
     COLOR 5,7
     LOCATE 14,58 : PRINT " E 240 "
     wert=3 : IF eingegeben=0 THEN Etimaus :ELSE Etimaus1

  Nummerein:
     eingegeben=1
     COLOR 7,0 
     LOCATE 18,17 : PRINT " Es befinden sich"losch1" Datensätze im speicher !"
     LOCATE 19,16 : INPUT "Welcher Datensatz soll gedruckt werden(Nr.):",losch          
     IF losch<1 OR losch >losch1 THEN BEEP : GOTO Nummerein
     COLOR 5,4 : LOCATE 22,29 : PRINT "falscher Datensatz" : COLOR 5,7   
     LOCATE 13,32 : z=LEN(Ftit$(losch)) : PRINT Ftit$(losch)+SPACE$(32-z)
     LOCATE 15,32 : PRINT Fummer$(losch)+SPACE$(29)
     COLOR 0,0
     LOCATE 18,17 : PRINT SPACE$(50)
     LOCATE 19,16 : PRINT SPACE$(50)
     GOTO Etimaus1
     
   Falsch:
    COLOR 5,4
    LOCATE 22,29 : PRINT "  Nummer eingeben "
    GOTO Etimaus
    
 Etikett:
    OPEN "par:" FOR OUTPUT AS 2
    a$=" " : x=LEN(Ftit$(losch)) : z=30-x
    FOR w=0 TO z : Ftit$(losch)=Ftit$(losch)+a$ : NEXT w    
     IF wert=0 THEN a$="-----"
     IF wert=1 THEN a$="E 120"
     IF wert=2 THEN a$="E 180"
     IF wert=3 THEN a$="E 240"
    PRINT#2,"---------------------------------------------------"
    PRINT#2,"|  Filmtitel    : "Ftit$(losch)" |" 
    PRINT#2,"|-------------------------------------------"a$"-|"
    PRINT#2,"|  Cassetten Nr.: "Fummer$(losch)"                             |"
    PRINT#2,"---------------------------------------------------"
    CLOSE 2 : eingegeben=0
    GOTO Falsch

  Durcheinander:
    LINE (130,60)-(490,107),8,bf
    LINE (130,60)-(490,107),7,b
    LINE (129,59)-(491,106),7,b
    COLOR 5,8
    LOCATE  9,21 : PRINT "    A B C D E F G H I J K L M N M O"
    LOCATE 10,21 : PRINT "    P Q R S T U V W X Y Z 1 2 3 4 5"
    LOCATE 11,21 : PRINT "    6 7 8 9 0 å ° © ® þ ¤ µ ¡ ø ¶ ["
    LOCATE 12,21 : PRINT "    æ ß ð £ ; ' # ] ± × ª º ­ ¸ , ."
    LOCATE 13,21 : PRINT "    ¹ @ ³ ° ¼ ½ ¾ · « » - = \ � ‚ ƒ"
    RETURN

 ente:
    LINE (100,206)-(520,235),7,bf : i=4 : ente=0
    LINE (100,206)-(520,235),5,b    
    COLOR 6,7
    LOCATE 27,14 : PRINT "Das Programm kann nur am OFF Schalter des Recorders"
    LOCATE 28,14 : PRINT "beendet werden !!"  
    LINE (420,221)-(450,233),4,b
  
  Entemaus:
    ON MOUSE GOSUB Entestart
     IF ente=1 THEN
      ente=0
      LINE (100,206)-(520,235),0,bf 
      RETURN
     END IF
    i=+i+1 : IF i=15 THEN i=4
    COLOR i,7
    LOCATE 29,54 : PRINT "OK!"
    MOUSE ON
    GOTO Entemaus
 
  Entestart:   
    Maus=MOUSE(0)
    y=MOUSE(1) : x= MOUSE(2)
    IF x>221 AND x<233 AND y>421 AND y<451 THEN Haupt     
    RETURN
  
  Haupt:
    LINE (100,206)-(520,235),0,bf : ente=1
    RETURN